﻿Public Class frmDemSoLuongGVTheoMon

    Private Sub frmDemSoLuongGVTheoMon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ds1 As New List(Of MonHocDTO)
        Dim monBUS As New MonHocBUS()
        ds1 = monBUS.DemSoGVTheoMon()

        dgvDSCN.Rows.Clear()

        For Each l As MonHocDTO In ds1
            dgvDSCN.Rows.Add(l.TENMON, l.SLGIAOVIEN)
        Next
    End Sub
End Class